unit ToollProperties;

interface

uses
    Winapi.Windows, System.Variants, System.SysUtils, Winapi.Messages, Vcl.Graphics, Forms,
    Dialogs, Vcl.Controls,System.Classes, Vcl.Buttons, ComCtrls;

type
    TToolPropsForm = class(TForm)
        SelectButton: TSpeedButton;
        AddButton: TSpeedButton;
        InsertButton: TSpeedButton;
        BuildButton: TSpeedButton;
    ProgressBar: TProgressBar;
        procedure BuildButtonClick(Sender: TObject);
        procedure SelectButtonClick(Sender: TObject);
    private
         
    public
         
    end;

var
    ToolPropsForm: TToolPropsForm;

implementation

uses main;

{$R *.dfm}

procedure TToolPropsForm.BuildButtonClick(Sender: TObject);
begin
    form1.BuildTrack;
end;

procedure TToolPropsForm.SelectButtonClick(Sender: TObject);
begin
    form1.toolmode := TToolmode(TSpeedButton(sender).tag);
    form1.stage := 0;
    form1.Track.Selected := NIL;
    case form1.toolmode of
        tmSelect:
            form1.Statusbar1.SimpleText := 'Select a node to edit';
        tmAdd:
            form1.Statusbar1.SimpleText := 'Click to add nodes';
        tmInsert:
            form1.Statusbar1.SimpleText := 'Select an insertion node';
    end;
end;

end.

